Pascal

Donald · Отправлено: **13:50, 27-10-2010** | #18

народ, помогите плиз исправить ошибку в коде

Цитата:

Program pp3;
type
rec=record
name:string[11];
stoim:integer;
izn:integer;
end;

t=array[1..10] of rec;
p=array[1..10] of real;

var
A:t;
B:p;
tInp,tOut:text;
c:char;
i:byte;
temp:file of rec;

procedure pr (var M:t; var N:p; i:integer);
begin
N[i]:=M[i].stoim-M[i].stoim/100*M[i].izn;
end;

begin
assign (tInp, 'dan.txt');
reset (tInp);

assign (tOut, 'res.txt');
rewrite (tOut);

assign (temp, 'temp.txt');
rewrite (temp);

for i:=1 to 10 do
begin
readln (tInp, A[i].name, A[i].stoim, c, A[i].izn);
write (temp, A[i]);
end;

close (temp);
reset (temp);

for i:=1 to 10 do
begin
read (temp, A[i]);
writeln (tOut, A[i].name, A[i].stoim, c, A[i].izn);
end;

writeln (tOut, '**************************');

for i:=1 to 10 do
begin
pr (A,B,i);
writeln (tOut, A[i].name:10, ' - ', B[i]:7:2, ' rub.');
end;

close (tInp);
close (tOut);
close (temp);

end.

вылетает ошибка ввода/вывода 106