Program laba6;
var
tip:array[1..21] of string[12];
har:array[1..21] of string[32];
ind:array[1..21] of string[10];
dvi:array[1..21] of string[11];
izd:array[1..21] of string[35];
mos:array[1..21] of real;
i:integer;
ta1,ta2,ta3,ta4,ta5,ta6:text;
BEGIN
writeln;
assign(ta1,'K:\ta1.txt');
reset(ta1);
assign(ta2,'K:\ta2.txt');
reset(ta2);
assign(ta3,'K:\ta3.txt');
reset(ta3);
assign(ta4,'K:\ta4.txt');
reset(ta4);
assign(ta5,'K:\ta5.txt');
reset(ta5);
assign(ta6,'K:\ta6.txt');
reset(ta6);
for i:=1 to 21 do begin
readln (ta1,tip[i]);
readln (ta2,har[i]);
readln (ta3,ind[i]);
readln (ta4,dvi[i]);
readln (ta5,izd[i]);
readln (ta6,mos[i]);
end;
writeln;
close(ta1);
close(ta2);
close(ta3);
close(ta4);
close(ta5);
close(ta6);
For i:=1 to 21 do
begin
if (copy(length(ind[i])<6) then
writeln('¦',har[i],'¦',ind[i],'¦',izd[i],'¦');
end;
End.
в 42 неверное количество фактических параметров