Geimeris
Pranešimai: 252
Įstojo: 30.09.11
|
Tai va, bandau kreipti i procedura, Bet vis man meta klaida kai kreipiuosi i byla. Va mano programa:
Kodas program zuvys;
type Zvejyba=record
vardas:string[10];
k1,k2,k3:integer;
end;
zvejai=array[1..100] of array [1..30] of zvejyba;
procedure surinkti(byla:text; var mas:zvejai);
var kar,kar2,i,d:integer;
begin
read(byla, kar);
for i:=1 to kar do
begin
d:=1;
read (byla, mas[i,d].vardas);
read (byla, kar2);
for d:=1 to kar2 do
begin
with mas[i,d] do
begin
read(byla, k1);
read(byla, k2);
read(byla, k3);
end;
end;
end;
end;
var duom,rez:text;
mas:zvejai;
i,d:integer;
begin
assign(duom,'byla.txt'); reset(duom);
assign(rez,'rezultatas.txt'); rewrite(rez);
surinkti(duom:text; var mas:zvejai);
Raso: Syntax error, ) expected but : found
Gal galit paaiskint, kur problema? |