паскаль на Delphi

[Tolian92]

нужно на Delphi переделать

program fg;
type
zap = record
prep:integer;
hova:integer;
end;
label m1,m2,m3;
var
str:zap;
f:file of zap;
b:array[1..10,1..3] of integer;
n,i,j,s,k:integer;
begin
readln(n);
assign(f, 'D:\lapshov\pasp.bd');
reset(f);
FOR i:=1 to 10 do begin
readln(f,str.Prep,str.Hova);
b[i,1]:=str.Prep;
b[i,2]:=str.Hova;
end;
close (f);
FOR i:=1 to 10 do begin
FOR i:=1 to 10 do write;
end;
FOR i:=1 to 10 do begin;
for j:=1 to 2 do;
write(b[i,j], ' ');
writeln;
end;


b[i,3]:=b[i,2];
FOR i:=1 to 10 do begin
FOR i:=1 to 3 do write;
end;


i:=1;
m2: s:=0;
for j:=1 to 1 do s:=s+b[j,3];
if s=36 then GOTO m1;
if s<36 then begin;
if b[i,3]/ 2<>0 then b[i,3]:=b[i,3]+1;
i:=i+1 ;if i>10 then GOTO m2;
if b[i,3]/2<>0 then b[i,3]:=b[i,3]+1;
i:=i+1;if i>10 then GOTO m2;
end;
begin;
if b[i,3]/2<>0 then b[i,3]:=b[i,3]-1;
i:=i+1;if i>10 then GOTO m2;
end;
m3:k:=36-s;
for i:=1 to n div 2 do begin
   b[i,3]:=b[i,3]+2;
   m1:
   FOR i:=1 to 10 do begin
     FOR i:=1 to 10 do write(b[i,n]);
     writeln;
   end;
  end;
end.

[Mad_Cat]

а сложность то в чем?
создать Console Application? или нажать Ctrl+C, а потом Ctrl+V

[Tolian92]

у меня ошибки выдает

[Mad_Cat]

у меня ошибки выдает

А какие указать, Вера не позволяет?

[Аватар]

Он и паскале совсем не код, учитывая конструкции вида

FOR i:=1 to 10 do begin
FOR i:=1 to 10 do write;
end;

[Tolian92]

просто я никогда не делал бд в делфи

[Mad_Cat]

Аплодисменты стоя!!!
1) удали эту строку
2) описание переменных над begin должно быть

[ZX Spectrum-128]

Вам же сказали: создайте консольное приложение.