записи в паскале

[swedalena]

Помогите пожалуйста сделать:
Создать файл записей f2(F:\reca), в котором содержится информация о длинах рек в километрах и площадях их бассейнов в квадратных километрах.
Вывести все данные файла на экран.
№ п/п Река Длина реки (км) Площадь бассейнов рек

1 Нил 6671 2870000
2 Миссисипи 6420 3238000
3 Амазонка 6280 6915000
4 Обь 5410 2990000
5 Амур 4416 1855000
6 Лена 4400 2490000
7 Конго 4320 3690000
8 Нигер 4160 2092000
9 Волга 3531 1360000

[ROMA2PVT]

Ну а где ваши наработки.

[swedalena]

Program Pr_9;
uses crt;
type reca=record
reca: string [20];
dlina reki : byte ;
ploshad : byte ;
end;
myfile=file of reca ;
var
f2:myfile;
i,n:integer;
c1:reca;
begin
clrscr;
writeln(' введите кол. рек :');
readln (n);
assign (f2,'F:\reca ' );
rewrite (f2 );
for i:= 1 to n do
begin
writeln (' введите название реки:');
readln(c1.reca);
writeln('введите длину реки:');
readln(c1.dlina reci);
writeln ('введите площадь реки:');
readln (c1.ploshad);
write(f2,c1);
end;
close (f2);
А дальше не пойму как?

[ROMA2PVT]

type z=record
     f:string[20];
     dlina:integer;
     ploch:integer;
     oklad:integer;
     num:integer;
     end;
var
     F:file of z;
     reki:array [1..10] of z;
     i,n,k:integer;
begin
writeln;
write('Введите количество записей: ');
readln(n);
assign(F,'c:\reka');
rewrite(f);
writeln('Введите сведения о реках: ');
for i:=1 to n do
with reki[I] do
begin
write('Запись ',i,'-я: => ');
write('Введите название реки: ');
readln(f);
write('Введите длину реки: ');
readln(dlina);
write('Введите площадь реки: ');
readln(ploch);
writeln('----------------');
end;
For i:=1 to n do
write(F,reki[i]);
Close(F);
reset(f);
n:=0;
While not Eof(F) do
Begin
inc(n);
read(f,reki[n]);
end;
for i:=1 to n do
begin
With reki[i] do
begin
write('є',i:2,'  є ');
Write(f:8,'    є ');
write(dlina:7,' є ');
Write(ploch:8,' є');
writeln;
end;
end;
close(f);
end.

Исправляйте что не нравится.

[swedalena]

спасибо вам

[swedalena]

Скажите, а где тут Begin не хватает?

[ROMA2PVT]

Там всё пашет.

[swedalena]

нет пишет нужен begin

[ROMA2PVT]

На какой строке запарывается?

[ROMA2PVT]

Только что проверил на TP и в PascalABC всё работает.Единственное что возьмите изените тип

integer

на

longint

.
И скачайте School pack 1.3.