while not

Ответ от RXFIRO[гуру]
s1,s2:char; попробуй тип тоже string сделать только очищай их в конце...

Ответ от Sergey[мастер]
Здравствуйте попробуйте вот так: var f1,f2,f3:text; s1,s2:char; st1,st2,st4:string; i,len:integer; begin assign(f1,'c:\f.txt'); reset(f1); assign(f2,'c:\g.txt'); reset(f2); assign(f3,'c:\h.txt'

Ответ от Ormandiore[гуру]
по синтаксису согласна с Т, а вот по смыслу в этой строке должно быть не or, а and

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]