Помогите с Паскалем

[1nfinity]

я сука не понимаю почему оно не запускается

type
sotr = record
fam, dol: string;
okl, pr, nal, sm: real;
end;
var A: array [1..100] of sotr;
i, n, ob: integer;
f: boolean;
begin
read(n);
for i:=1 to n do
with A[i] do
begin
readln(fam);
readln(dol);
readln(okl);
readln(pr);
end;
for i:=1 to n do
begin
if A[i].okl+A[i].pr < 20000 then
A[i].nal := (A[i].okl+A[i].pr)*13/100
else
A[i].nal := (A[i].okl+A[i].pr)*20/100;
end;
A[i].sm := A[i].okl+A[i].pr-A[i].nal;
repeat
f := true;
for i:=1 to n-1 do
if A[i].sm < A[i+1].sm then
begin
ob := A[i];
A[i] := A[i+1].sm;
A[i+1] := ob;
f:=false;
end;
until f;
for i:=1 to n do
writeln(A[i].fam, ' ', A[i].dol, ' ', A[i].nal, ' ', A[i].sm);
end.

 

[ponare]

new skeet resolver uff ya $$$

 

[1nfinity]

new skeet resolver uff ya $$$

вабщета скит годмод эксплоит

 

[dazzyeban]

вабщета скит годмод эксплоит

питон лудше.........=й=,.

 

[kissa<3]

что це такое

 

[ponare]

что це такое

пскаль абц, в школе прохажу ща, а это скит п апдейт да

 

[dazzyeban]

что це такое

бэба

 

[m3m3catcher]

произошла утечка исходников ресольвера ?