Вычисления номера позиции

[Stelix]

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

program N3;
uses crt;
var
 a,b:string[4];
 i,g:byte;
begin
 clrscr;
 write('Введите 1- ое слово: ');
 readln(a);
 write('Введите 2- ое слово: ');
 readln(b);
 for i:=1 to 4 do
  if a[i]<>b[i] then
 writeln(Позиция: ',i);
 while not keypressed do;
end.

Нужно сделать через функцию или процедуру,помогите мне с этим пожалуйста,как через них делать не представляю 0_о

[puporev]

Вот твой код с процедурой. Еще убрал лишнюю переменную g.

uses crt;
var a,b:string;i:byte;
procedure poz(c,d:string);    //начало процедуры
var i:integer;
begin
  for i:=1 to 4 do
  if c[i]<>d[i] then
  writeln('Позиция=',i);
end;                          //конец процедуры
begin
  clrscr;
  write('Введите 1 слово:');readln(a);
  write('Введите 2 слово:');readln(b);
  poz(a,b);                   //использование процедуры
  while not keypressed do;
end.

[Stelix]

Отлично,большое спасибо!Всё,естественно,работает

[Udaf_Alex]

С функций будет так:

program N3_2;
uses crt;
var
 a,b:string[4];
function search_pos(x,y: string): byte;
   var i: byte;
begin
  for i:=1 to 4 do
    if x[i]<>y[i] then search_pos:=i;
end;
begin
 clrscr;
 write('Введите 1- ое слово: ');
 readln(a);
 write('Введите 2- ое слово: ');
 readln(b);
 writeln(Позиция: ',search_pos(a,b));
 while not keypressed do;
end.