ЕШ
Екатерина Шестак
Как из текстового файла переписать данные в массив. паскаль
Мне нужно переписать данные из текстового файла в массив, так чтобы одна строчка файла была одним элементом массива.
var
i:byte;
c:string;
vopr:textfile;
vopros:array[1..100]of string;
begin
AssignFile(vopr,'vopr.txt');
reset(vopr);
while not eof(vopr) do
begin
inc(i);
readln(vopr,c);
vopros:=c;
writeln(vopros);
readln;
end;
end.
попробовала так, но программа никак не хочет выполнятся, помогите
vopros[ i ]:=c;
writeln(vopros[ i ]);
readln;
end;
end.