почему у меня программа не работает ..подскажите

@Tatyana_Gordaya · Регистрация: 08.04.2010

Задание: Создать в программе Блокнот текстовый файл. Написать программу, которая расшифровывает тестовый файл. Известно, что при шифровании основного текста все буквы заменялись последующими буквами. Буква a, заменялась на b,b – на c и т.д. Причем, z заменялась на a. Дешифрованный текст записать в новый файл.

сама программа:

Pascal

procedure Decode(const s:string;const s1:string);
 
var f,f1:text;
 
    line:string;
 
    i:integer;
 
begin
 
  assign(f,s);
 
  reset(f);
 
  assign(f1,s1);
 
  rewrite(f1);
 
  while not eof(f) do
 
  begin
 
    readln(f,line);
 
    for i:=1 to length(line) do
 
     if line[i] in ['a'..'z'] then
 
     begin
 
       if line[i]<>'a' then line[i]:=chr(ord(line[i])-1)
 
       else
 
        line[i]:='z';
 
     end;
 
     writeln(f1,line);
 
  end;
 
  close(f);
 
  close(f1);
 
end;
 
 
 
begin
 
   Decode('D:\code.txt','D:\decode.txt');
 
end.

@Puporev · 26.05.2010, 15:11

Если это весь код программы, то в ней не объявлено ни одной переменной.

@Tatyana_Gordaya · 26.05.2010, 15:12 **[ТС]**

Сообщение от Puporev

Если это весь код программы, то в ней не объявлено ни одной переменной.

сделайте пожалуйста кто - нибудь .........прошууууууууууууууу((( мурр

@Puporev · 26.05.2010, 15:18

Напишите по человечески код программы, не через 10 строк и приложите файл для тестирования программы.

Добавлено через 1 минуту

прошууууууууууууууу((( мурр

А вот это Вы зря. Половину вероятных помощников стошнило и они ушли смотреть нормальные темы.

@Puporev Почетный модератор 64271 / 47570 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	26.05.2010, 15:11	2
	Если это весь код программы, то в ней не объявлено ни одной переменной. 1

@Tatyana_Gordaya 0 / 0 / 0 Регистрация: 08.04.2010 Сообщений: 17
	26.05.2010, 15:12 [ТС]	3
	Сообщение от Puporev Если это весь код программы, то в ней не объявлено ни одной переменной. сделайте пожалуйста кто - нибудь .........прошууууууууууууууу((( мурр 0

@Puporev Почетный модератор 64271 / 47570 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	26.05.2010, 15:18	4
	Напишите по человечески код программы, не через 10 строк и приложите файл для тестирования программы. Добавлено через 1 минуту прошууууууууууууууу((( мурр А вот это Вы зря. Половину вероятных помощников стошнило и они ушли смотреть нормальные темы. 1

Опции темы