Паскаль. Определить номер позиции,в которой символы отличаются

[Stelix]

Текст задачи:
Даны две символьные переменные,по 4 символа каждая,в которых все символы,кроме одного,в соответствующих позициях одинаковы.
Определиит номер позиции,в которой символы отличны друг от друга.
Вот то,что сделал я:

uses crt;
var
  a : array[1..4] of integer;
  i : integer;
begin
  clrscr;
  for i:=1 to 4 do
  begin
    readln(a[i]);
  end;
  gotoxy(10,20);
  writeln(a[i]);

  readkey;
end.

[Hollander]

ну во первых если это символьные переменные то

  a, b : array[1..4] of char;

а еще проще

a,b :string; //правда размерность уже не 4, а 255

ну а вывести номер неверных это просто

  for i:=0 to 3 do
  begin
    if a[i] <> b[i] then
      writeln('Номер отличающихся эл-ов = ', i);
  end;

не забывай про индексы в Паскале они начинаются с 0, если я не запутался

[Stelix]

Что-то не то,запускаю-чёрный экран,ввожу цифру,жму enter-выбрасывает

[Stelix]

Если кто может,напишите целиком текст программы пожалуйста.

[Hollander]

uses crt;
var
  a, b : array[1..4] of integer;
  i : integer;
begin
  clrscr;
  for i:=1 to 4 do
  begin
    readln(a[i]);
  end;
  for i:=1 to 4 do
  begin
    readln(b[i]);
  end;
  gotoxy(10,20);
  for i:=1 to 4 do
    if a[i]<>b[i] then  writeln('Не совпали ',i);

  readkey;
end.

Вроде так просто у меня нету ни паскаля ни делфи. Так что компилировать прихоходтся в уме

[_Dmitry]

Так короче будет

uses crt;
var
  a,b: string[4];
  i: integer;
begin
  clrscr;
  write('a='); readln(a);
  write('b='); readln(b);
  for i:=1 to 4 do
    if a[i] <> b[i] then  writeln('error ',i);
  readkey;
end.

[Stelix]

Всё готово,спасибо!