маленькая програ на паскале,какая-то ошибка помогите кто знает:)

[Jeksik]

Разработать прогу для вычисление теблицы умножения на два результат записать в файл,содержимое файла вывести на экран.

program f1(c);
const a=2; b='*'; d='=';
var c:text; k,i:byte;
begin
Assign(c,'d:\otvet.txt');
rewrite(c);
for i:=1 to 10 do begin k:=a*i;
writeln(c,a,b,i,d,k);end;
close(c);
reset(c);
while not EOF(c) do begin
readln(c, a, b, i, d, k);Вот здесь выдаёт ошибку 20 Variable identifier expected (Отсутствует идентификатор переменной).
writeln(a, b, i, d, k);
end;
end.

[mihali4]

Ну, если уж вы дали выходному файлу идентификатор С, то потрудитесь и указать, что это файл, а не текст...
var c:textfile; k,i:byte;

[Jeksik]

Это ясно спасибо,но теперь другая проблемма вылазиет ошибка 63 Invalid file type (Неверный файловый тип). В месте обозначеном красным цветом. Помогите исправить

program f1(c);
const a=2; b='*'; d='=';
var c:file; k,i:byte;
begin
Assign(c,'d:\otvet.txt');
rewrite(c);
for i:=1 to 10 do begin k:=a*i;
writeln(c,a,b,i,d,k);end
close(c);
reset(c);
while not EOF(c) do begin
readln(c, a, b, i, d, k);
writeln(a, b, i, d, k);
end;
end.

[mihali4]

Я ж вам русским языком написал С: TEXTFILE... А у вас просто FILE...

[Jeksik]

потому что на этом месте он пишет неизвесный идентификарот

[AVer]

TEXTFILE - появился в делфи, если я не ошибаюсь, а в Паскале правда был Text. А какую ошибку выдавало в самом начале?

[san72]

В паскале насколько я помню текстовой файл объявляется просто

c:text;

[san72]

У вас всё так запутано много лишнего, вот я переписал вашу прогу, всё работает без ошибок:

program f1(c);
uses CRT;
var c:text;
s:string;
k,i,a:Byte;

begin
ClrScr;
Assign(c,'D:\otvet.txt');

ReWrite(c);
for i:=1 to 10 do begin
k:=2*i;
WriteLn(c,'2','*',i,'=',k);
end;
Close(c);

Reset(c);
While not EOF(c) do begin
ReadLn(c,s);
WriteLn(s);
end;
Close(c);

ReadLn;
end.

[puporev]

readln(c, a, b, i, d, k);Вот здесь выдаёт ошибку 20 Variable identifier expected

Процедурой readln можно считывать из файла только строки и нельзя числа, если они не представлены символьным типом. Поэтому слушайтесь san72.

[Jeksik]

Большое спасибо!!!!