Гду может быть ошибка????

[Jhon]

[syntax="pascal"]program ex_1;
uses CRT;
const n=100;
type
rob=record
pip: string[50];
rik_narodzennya:string[99];
oklad:string[99];
end;
var
a1:array[1..n] of rob;
m,i: integer;
begin
clrscr;
repeat
write ('Input k-st robitnukiv=>');
readln(m);
until n in [1..100];
for i:=1 to n do with a1 do
begin
write('Input pip=>'); readln(pip);
write('Input rik_narodzennya=>');readln(rik_narodzennya);
write('Input oklad=>'); readln(oklad);

end;
for i:=1 to n do
begin
writeln('Ima robitnuka:',pip);
writeln('rik_narodzennya:',rik_narodzennya);
writeln('oklad:',oklad);
end;
end.[/syntax]

[samec2011]

везде
путаете в прогамме константу n и переменную m.
Расставьте всё на свои места - и заработает, наверное

и ещё при выводе на экран - непонятно что выводите.
думаю както так будет правильнее:

Код: Выделить всё

for i:=1 to m do
with a1[i] do
begin
writeln('Ima robitnuka:',pip);
writeln('rik_narodzennya:',rik_narodzennya);
writeln('oklad:',oklad);
end;