Помогите найти ошибку в программе

@semechkaf · Регистрация: 07.06.2013

Студворк — интернет-сервис помощи студентам

Pascal

program idiot;
var a,b,c:text;
s:string;
v:string;
begin
assign(a,'1.txt'); reset(a);
assign(b,'2.txt'); reset(b);
assign(c,'3.txt'); rewrite(c);
while not eof(a) or eof(b) do begin
readln(a,s);
readln(b,v);
if length(a)>length(b) then writeln(c,v);
end;
close(a);close(b);close(c);
writeln('zapisan');
end.

написал программу по сравнению строки в двух файлах, и записывает короткую строку в 3-й файл. выдает ошибку" 12,14 error; type mismatch и 12.4 так же. подскажите в чем моя ошибка

Добавлено через 14 минут
нашел ошибку, но программа не работает(

@Puporev · 15.01.2014, 12:05

Pascal

program idiot;
var a,b,c:text;
    s:string;
    v:string;
begin
assign(a,'1.txt'); reset(a);
assign(b,'2.txt'); reset(b);
assign(c,'3.txt'); rewrite(c);
while not eof(a) or not eof(b) do
 begin
  readln(a,s);
  readln(b,v);
  if length(s)>length(v) then writeln(c,v)
  else if length(s)<length(v) then writeln(c,s)
 end;
close(a);close(b);close(c);
writeln('zapisan');
end.

@semechkaf · 15.01.2014, 12:11 **[ТС]**

программа закрывается сразу после исполнения

@Puporev · 15.01.2014, 12:14

Это мне претензии? Так код вроде твой. Допиши

Pascal

1
2
3

writeln('zapisan');
readln;//это и нажимай Enter для выхода
end.

@semechkaf · 15.01.2014, 12:17 **[ТС]**

спасибо

@semechkaf 0 / 0 / 0 Регистрация: 07.06.2013 Сообщений: 37
	15.01.2014, 12:11 [ТС]	3
	программа закрывается сразу после исполнения 0

@semechkaf 0 / 0 / 0 Регистрация: 07.06.2013 Сообщений: 37
	15.01.2014, 12:17 [ТС]	5
	спасибо 0

Опции темы