Петя нашел в интернете шифр кодового слова. Шифр получается так: 1. Выбирается кодовое слово, например «хорошо». 2. Убираются копии букв в слове из п. 1, получается «хорш». 3. Затем строится новый алфавит таким образом, что полученное в п. 2 слово записывается в начало нового алфавита, а затем новый алфавит дополняется обычным (из которого исключаются буквы из слова(п. 2) а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я х о р ш а б в г д е ё ж з и й к л м н п с т у ф ц ч щ ъ ы ь э ю я 4. Чтобы закодировать текст, буквы старого алфавита в тексте заменяются на те, что стоят под ними (пробелы и знаки препинания не изменяются). А чтобы раскодировать, буквы нового алфавита в тексте заменяются на те, что стоят над ними. Например, используя шифрование словом «хорошо», мы можем из фразы «шифр кодового слова» получить «четм жкакркшк нзкрх». Петя закодировал с данного шифра строку, в итоге получилась строка «лантэша б мцкшйоя оярнкойсзъб жё». Для кодирования данной строки Петя выбрал кодовое слово «коммивояжёр» Восстановите исходную строку и в ответе запишите слова исходной строки через пробел без кавычек и запятых. БЫСТРЕЕ ОСТАЛОСЬ 10 МИНУТ

Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.

У тебя:
readln; <- к тому же не указал что надо писать.
if t then <- что это такое? Ошибка.
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;

Должно быть:

program Pr1;

const 
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name, t: string;

Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln(t);

t := t.ToLower;

if t = 'да' then
begin
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
end
else
за использование!');

if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;

if d<0 then
begin
writeln ('D<0, корней нет');
end;

if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
end.