Работа с файлами

[Чертенок7]

Здравствуйте. Подскажите, пожалуйста,как написать программу. Есть большой файл, в нем записаны слова юг, север, запад, восток.Робот начинал движение с ячейки расположенной в центре, имеющей
координаты Y=0 X=0. Направления записаны словами "юг" (значение Y увеличивается на 1), "север" (значение Y уменьшается на 1),
"запад" (значение X уменьшается на 1) и "восток" (значение X увеличивается на 1). по окончанию файла будет выдан ответ координат. Как правильно записать условие:

Uses crt;
var fl:text;
str:string;
Chislo, Code,i:integer;
begin
clrscr;
assign (fl, 'C:\Users\Ïîëüçîâàòåëü\Desktop\D.txt');

reset (fl);

while not Eof(fl) do

begin
y:=0; x:=0;
read (fl,str);
если прочитал str =юг then y:=y+1
else
if .... str

end;

close(fl);

readln

end.

[ViktorR]

1. Код следует форматировать: выделить и кликнуть по кнопке # в меню редактора.
2. Например, можно так:

Uses crt;
var fl:text;
   str:string;
Chislo:integer;
  Code:integer;
     i:integer;
begin
  clrscr;
  assign (fl, 'C:\abc\D.txt');
  reset (fl);
  y:=0; x:=0; {Это начальная позиция}
              {Инициализация делается один раз}
  while not Eof(fl) do
  begin
     y:=0; x:=0;
     read (fl,str);
     if str ='юг' then y:=y+1;
     if str ='север' then y:=y-1;
     if str ='восток' then x:=x+1;
     if str ='запад' then x:=x-1;
  end;
  close(fl);
{Тут вывод полученых значений X и Y}
  readln;
end.

Это только пример. Он не проверялся ...
3. Не размещай файл на рабочем столе.
Будет лучше, если компилятор настроить на рабочую папку, в которой можно создавать и файлы программ, и временные файлы, и файлы данных.
Если у вас Free Pascal, то это сделать легко. Достаточно найти в сети книжку "Песни о Паскале" (ссылка есть на форуме) там описано как настроить ярлык для запуска FPC.
Как это сделать для другого компилятора ...

PS: В свойствах ярлыка надо заполнить поле "Рабочая папка".