Помогите с задачкой в Pascale

PROGRAM Ivanov6;
{$APPTYPE CONSOLE}
USES
SysUtils;
var
F:array [1..10] of integer;// Массив F
teta,alfa,beta :string[4];// Стринги
w :real;// Вещественное число W
e :integer;// Целое число Е
i :integer;// Счетчик элементов массива F
n :integer;// Количество элементов массива F
fi,fo :text;// Файловые переменные fi,fo
begin
// Файловой переменной fi назначается файл Output.txt
AssignFile(fi,'Input.txt');
Reset(fi); // Текстовый файл открывается для чтения
Readln(fi,teta,alfa,beta); // Чтение из файла первой строки
Readln(fi,w,e); // Чтение из файла второй строки
Readln(fi,n); // Чтение из файла третьей строки
for i:=1 to n do Read(fi,F); // Чтение из файла четвертой строки
CloseFile(fi); // Закрывается прочитанный файл fi
// Выводим информацию в файл:
// Файловой переменной fo назначается файл Ivanov6_1.out
AssignFile(fo,'Input.txt');
Rewrite(fo); // Текстовый файл fo открывается для записи
Writeln(fo,' 1=',Москва, ' 2=',Новгород, ' 3=',Санкт-Петербург - Россия, ' 4=',Киев, ' 5=,'Одесса - Украина, ' 6=,'Стокгольм - Швеция',);
Writeln(fo,' w=',w:12:9,' e=',e:4);
Write(fo,' F=(');
for i:=1 to n do Write(fo,F:3);
Writeln(fo,' )');
CloseFile(fo); // Закрывается файл fo,созданный программой
{// выводим информацию на экран:
Writeln(fo,' 1=',Москва, ' 2=',Новгород, ' 3=',Санкт-Петербург - Россия, ' 4=',Киев, ' 5=,'Одесса - Украина, ' 6=,'Стокгольм - Швеция',);
Write(' f=(');
for i:=1 to n do Write(F:3);
Writeln(' )');
WriteLn('***** Press <enter> to finish *****');
Readln;// задержка экрана
Readln;}

//Вводим инфу в файл

AssingFile(fo,'Output.txt');
rewrite(fo);
fir i;=1 to n do
for j;=1 to m do
begin
Writeln(fo,' 1=',Москва, ' 2=',Новгород, ' 3=',Санкт-Петербург - Россия, ' 4=',Киев, ' 5=,'Одесса - Украина, ' 6=,'Стокгольм - Швеция',);
end;
closefile(fo);
END.

Так и не понял, что в инпут а что в аутпут.
Но впринципе, тебе надо прочесть инпут через read(), затем забивать елементы в массив пока не встретишь "-", удаляешь тире и присваиваешь всему этому массиву следующий елемент - страну. И создаешь новый массив, и так пока не кончатся файлы.
А затем.. . выводишь через writeLn каждый елемент массива+страна этого массива.

Короче пиши icq 8840181 напишу за бабки)