source: trunk/Demos/Structure/Project.pas

program Project;

uses System;

type
  
  TPercent = 0..100;
  
  TPoint = record
    X: Integer;
    Y: Integer;
  end;

  TArrayOfByte = array[Byte] of Byte;

function Max(A, B: Byte): Byte;
var
  S: Byte;
begin
  if A > B then Result := A
  else Result := B;
end;

const
  Verze: Byte = 11;
var
  a: Byte;
  B: Byte;
  sS: Byte;
  D: Byte;
  
begin
  WriteLn(A);
  begin
    WriteLn(11);
    Pokus;
    dsd;
    begin
      WriteLn(A);
    end;
  end;
  A := 1;
  for A := 1 to 2 do WriteLn(A);
  if A = 2 then begin
    A := 3;
  end;
  while A < 1 do A := A + 1;
  WriteLn(D);
end.