Задача на текстовые файлы.Паскаль

[HOOLY]

уважаемые програмисты обращаюсь к вам за помощью т.к. сваих мазгов не хватает...собственно ближе к делу...Даны два текстовых файла,записать в третий файл только те строки которые есть в и первом тхт файле и во втором...

[NeshSoft]

Считываете оба файла, в массивы строк, упорядочиваете масивы по возрастанию. Сравниваете первые строки массивов, если равны, значит эта строка есть и там и там - записываем её в файл, если не равны, то в том массиве, где строка меньше - берем следующую строку, и сравниваем с первой из другого массива, и т.д.

[HOOLY]

как было сказано ранее мозгами я не выделяюсь...и хотелось бы код проги а не теорию как её делать...

[Stilet]

Ну примерно так:

var a,b:text; s,x:string;
begin
 AssignFile(a,'File1.txt'); AssignFile(b,'File2.txt');
 reset(a);
 while not eof(a) do begin
  reset(b);readln(a,x);
  while (not eof(b)) do begin
   readln(b,s);
   if s=x then begin Writeln(s); break;end;
  end;
 end;
 CloseFile(a);CloseFile(b);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

ТОлько это на Делфи, тут Ассигнование и закрытие файлов нужно паскалевскими функами делать, а так код один в один.

[HOOLY]

объясните пажалуста поэтапно как работает эта прога....