Задачки, строки Опции

[-Даша-]

1)Ввести с клавиатуры две строки длинной не более 5 символов каждая (проверить это оператором условия) и вывести на экран те буквы строк, которые стоят на одинаковых местах и совпадают {например: для слов ‘мама’ и ‘папа’ нужно вывести буквы ‘а’ и 'а'
2)3Написать программу, которая позволяет пользователю ввести два загаданных числа, а после вывести на экран символ с ASCII-кодом равным сумме этих двух чисел.

[_LeeRoy_]

№1

program stroki;
uses crt;
var a,b : string;
    i: integer;
begin clrscr;
      writeln('vvedite 1 stroku'); readln(a);
    if length(a)>5 then begin writeln('oshibka, dlina stroki bolshe 5');readkey;halt end;
      writeln('vvedite 2 stroku'); readln(b);
    if length(a)>5 then begin writeln('oshibka, dlina stroki bolshe 5');readkey;halt end;
  write('odinakovie simvoli : ');
for i:=1 to length(a) do
    if a[i]=b[i] then write( a[i],', ');
readkey;
end.

[dream-x]

_LeeRoy_

Опередил меня